Исходный код

Attribute VB_Name = "Module1"
Sub Main()

    ' Получить приложение TDMS
    Dim tdmsApp As TDMSApplication
    
    On Error Resume Next
    
    ' Получить приложение TDMS
    Set tdmsApp = GetObject(, "TDMS.Application")
    
    ' Если произошла ошибка
    If Err <> 0 Then
        ' Создать новое приложение
        Set tdmsApp = New TDMSApplication
        tdmsApp.Visible = True
    Else: MsgBox "Приложение получено"
    End If

End Sub